function TBotswana.ToetsGeldig: Boolean;
begin
  Result := True;                     //GIVEN CODE
    If fP1 IN [fP2, fP3, fP4] Then    //GIVEN CODE
      Begin                           //GIVEN CODE
        Result := False;              //GIVEN CODE
      end;                            //GIVEN CODE
    If fP2 IN [fP1, fP3, fP4] Then    //GIVEN CODE
      Begin                           //GIVEN CODE
        Result := False;              //GIVEN CODE
      end;                            //GIVEN CODE
    If fP3 IN [fP2, fP1, fP4] Then    //GIVEN CODE
      Begin                           //GIVEN CODE
        Result := False;              //GIVEN CODE
      end;                            //GIVEN CODE
    If fP4 IN [fP2, fP3, fP1] Then    //GIVEN CODE
      Begin                           //GIVEN CODE
        Result := False;              //GIVEN CODE
      end;                            //GIVEN CODE
end;
